msgbox("a")
sub xx()
end sub


dim a as integer
dim a as double
